home *** CD-ROM | disk | FTP | other *** search
/ Sports Illustrated for Kids - Awesome Athletes! / Sports Illustrated for Kids - Awesome Athletes!.iso / hf.dir / 00060_WriteWordLists.ls < prev    next >
Encoding:
Text File  |  1996-04-19  |  870 b   |  34 lines
  1. global gSIUtils, ghfathleteno
  2.  
  3. on WriteWordLists
  4.   repeat with vI = 1 to 290
  5.     if vI < 10 then
  6.       set vAth to "00"
  7.     else
  8.       if vI < 100 then
  9.         set vAth to "0"
  10.       else
  11.         set vAth to EMPTY
  12.       end if
  13.     end if
  14.     set vAth to vAth & vI
  15.     put vAth
  16.     set ghfathleteno to vAth
  17.     LoadAthleteDB()
  18.     set vFile to FileIO(mnew, "write", "E:\WL" & vAth & ".TXT")
  19.     repeat with vPage = 1 to 10
  20.       set vCast to GetAssetNo("BIO" & vAth & vPage)
  21.       if vCast = -1 then
  22.         exit repeat
  23.       end if
  24.       set vText to the text of cast vCast
  25.       set vText to gSIUtils(mToUpperCase, vText)
  26.       set vText to gSIUtils(mNoPunct, vText)
  27.       repeat with vWord = 1 to the number of words in vText
  28.         vFile(mWriteString, word vWord of vText & RETURN & numToChar(10))
  29.       end repeat
  30.     end repeat
  31.     vFile(mdispose)
  32.   end repeat
  33. end
  34.